Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/MOVIES/MOVIES.DIR/00049_Script_49

Text File | 1995-11-15 | 15KB | 581 lines

on showHilite
  global gCurrChan,gFirsChan,gLastChan,gMovieButtons,gPrevHilite

  put getAprop(gMovieButtons,gCurrChan) into thisOne

  goMovieGo

  set m = the movie
  testOverheadMenu
  if m <> the movie then exit

  updateController

  if (the visibility of sprite gCurrChan = 1) and rollOver(gCurrChan) then
    put the puppet of sprite gCurrChan into pState
    puppetSprite gCurrChan,false
    put the castnum of sprite gCurrChan into it
    set the puppet of sprite gCurrChan to pState
    goMovieGo
    if (it<>0) then
      if gCurrChan <> gPrevHilite then
        goMovieGo
        rollo(thisOne)
        put gCurrChan into gPrevHilite
      end if
      goMovieGo
      if the mouseDown then
        goMovieGo

        --        set n = the castNum of sprite gCurrChan
        --        if n <> -1 then
        --          set n = the name of cast n
        --          if n = "MCR.PIC" or n = "MTR.PIC" then exit
        --        end if

        press(thisOne)
        put 0 into gPrevHilite
        goMovieGo
        if rollover(gCurrChan) then
          goMovieGo
          set m = the movie
          doScript(thisOne)
          if m <> the movie then exit
          goMovieGo
          norm(thisOne)
          if gCurrChan < 5 then
            repeat while the mouseDown
              goMovieGo
            end repeat
          end if
        end if
      end if
    else
      if gCurrChan = 4 and rollOver(2) then set gCurrChan = 2
      if gCurrChan <> gFirsChan and rollOver(gCurrChan - 1) then
        put "backward"
        set gCurrChan = gCurrChan - 1
      else

        put gCurrChan+1 into gCurrChan
        if gCurrChan > gLastChan then put gFirsChan into gCurrChan
      end if

    end if
  else
    goMovieGo
    if gCurrChan = gPrevHilite then norm(thisOne)
    put 0 into gPrevHilite
    if gCurrChan = 4 and rollOver(2) then
      set gCurrChan = 2
      put "set special"
      put gCurrChan && gFirsChan
    end if

    if gCurrChan <> gFirsChan and rollOver(gCurrChan - 1) then
      --put "2backward"
      set gCurrChan = gCurrChan - 1

    else
      put gCurrChan+1 into gCurrChan
      if gCurrChan > gLastChan then put gFirsChan into gCurrChan
    end if

  end if
  goMovieGo
end showHilite

on showHilitexxx
  global gCurrChan,gFirsChan,gLastChan,gMovieButtons,gPrevHilite

  put getAprop(gMovieButtons,gCurrChan) into thisOne

  testOverheadMenu

  goMovieGo
  if (the visibility of sprite gCurrChan = 1) and rollOver(gCurrChan) then
    goMovieGo
    put the puppet of sprite gCurrChan into pState
    puppetSprite gCurrChan,false
    put the castnum of sprite gCurrChan into it
    set the puppet of sprite gCurrChan to pState
    goMovieGo
    if (it<>0) then
      goMovieGo
      if gCurrChan <> gPrevHilite then
        rollo(thisOne)
        put gCurrChan into gPrevHilite
      end if
      goMovieGo
      if the mouseDown then
        goMovieGo
        press(thisOne)
        set n = the castNum of sprite gCurrChan
        if n <> -1 then
          set n = the name of cast n
          if n = "MCR.PIC" or n = "MTR.PIC" then exit
        end if

        put 0 into gPrevHilite
        goMovieGo
        if rollover(gCurrChan) then
          goMovieGo
          doScript(thisOne)
          goMovieGo
          norm(thisOne)
        end if
        goMovieGo
      end if
    else
      if gCurrChan = 4 and rollOver(2) then set gCurrChan = 2
      if gCurrChan <> gFirsChan and rollOver(gCurrChan - 1) then
        put "backward"
        set gCurrChan = gCurrChan - 1
      else

        put gCurrChan+1 into gCurrChan
        if gCurrChan > gLastChan then put gFirsChan into gCurrChan
      end if

    end if
    goMovieGo
  else
    goMovieGo
    if gCurrChan = gPrevHilite then norm(thisOne)
    put 0 into gPrevHilite
    if gCurrChan = 4 and rollOver(2) then
      set gCurrChan = 2
      put "set special"
      put gCurrChan && gFirsChan
    end if

    if gCurrChan <> gFirsChan and rollOver(gCurrChan - 1) then
      --put "2backward"
      set gCurrChan = gCurrChan - 1

    else
      put gCurrChan+1 into gCurrChan
      if gCurrChan > gLastChan then put gFirsChan into gCurrChan
    end if

  end if
  goMovieGo
end showHilite

on large
  global gMovieLabel, gCurLabelProp

  set gMovieLabel = (char 1 to 2 of gMovieLabel)&"L"
  if gMovieLabel = "COL" then set gMovieLabel = "COL"
  set gCurLabelProp = gMovieLabel

  size "large"
end

--
--
-- bug in director, only small needs this fix...
--
on small
  global gMovieLabel, gCurLabelProp
  --
  --
  -- Check for lower case "cos"
  --
  set gMovieLabel = (char 1 to 2 of gMovieLabel)&"S"

  if gMovieLabel = "cos" then set gMovieLabel = "cos"
  set gCurLabelProp = gMovieLabel

  size "small"
end

on size whichWay
  if the framelabel <> "" then
    if whichWay = "large" then go next
    else go previous
  else
    if whichWay ="small" then
      goSmaller
    else goBigger
  end if
end size



on controller
  global gMovieIsPlaying

  if not gMovieIsPlaying then playMovie

  if the visible of sprite 14 then
    puppetSprite 15,0
    set the visible of sprite 14 = 0
    set the visible of sprite 15 = 0
  else
    puppetSprite 15,1
    set the visible of sprite 14 = 1
    set the visible of sprite 15 = 1
  end if
end controller

on updateController

  if the type of sprite 12 <> 16 then exit

  set s = the stopTime of sprite 12
  set w = the width of sprite 12
  set p = the movieTime of sprite 12
  set r = the right of sprite 12

  set h = r-(w-(p*w)/s)

  set the locH of sprite 15 = h
end updateController

on setController onOff
  if onOff then
    if the visible of sprite 14 then
      puppetSprite 15,1
      updateController
      set the visibility of sprite 15 = 1
    end if
  else
    puppetSprite 15, 0
    set the visibility of sprite 14 = 0
    set the visibility of sprite 15 = 0
    updateStage
  end if

end setController



on goSmaller
  global gMovieLabel, gMovieIsPlaying
  --put ">>>" & gMovieLabel
  --
  --
  -- Check for lower case "cos"
  --

  set gMovieLabel = (char 1 to 2 of gMovieLabel)&"S"

  if gMovieLabel = "cos" then set gMovieLabel = "cos"

  --put ">>>" & gMovieLabel
  put (label(gMovieLabel)) into frameNumber
  puppetSprite 15, 0
  set the visibility of sprite 15 = 0
  go frame frameNumber+1
  setController 1
  updateStage
end

on goBigger
  global gMovieLabel, gMovieIsPlaying
  --put ">>>" & gMovieLabel
  set gMovieLabel = (char 1 to 2 of gMovieLabel)&"L"
  --put ">>>" & gMovieLabel
  put (label(gMovieLabel)) into frameNumber
  puppetSprite 15, 0
  set the visibility of sprite 15 = 0
  go frame frameNumber+1
  setController 1
  updateStage
end

on testVisitLabels castName
  global gLabels

  set hitList to value(field castName)
  set c = count(hitList)
  repeat with i = 1 to c
    set theLabel = getAt(hitList, i)
    if theLabel = "" then next repeat
    set list = getAProp(gLabels, theLabel)
    put i && theLabel
    put getAt(list,1)
  end repeat

  put "Done."
end


on lookUpTime curTime
  global gMovieLabel

  set hitList to value(string(field(char 1 to 2 of gMovieLabel)))
  set c = count(hitList)
  repeat with i = 1 to c
    set t = getPropAt(hitList, i)
    if t > curTime then
      set theLabel = getAt(hitList, i)
      exit repeat
    end if
  end repeat

  return theLabel

end lookUpTime

on visit
  global gMovieLabel, gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP
  --if gTourLabel = "EMS" then exit -- no links

  if the type of sprite 12 = 16 then
    put  the movieTime of sprite 12 into curTime
    do "set gMovieTime"&char 1 to 2 of gMovieLabel & " = curTime"
  end if

  set theLabel = lookUpTime(curTime)

  if theLabel = "" then
    set the visibility of sprite 9 = 0
    exit
  end if

  puppetSprite 15,0
  goGo(theLabel)
  --go frame theLabel of movie getAt(xList,2)
end

on continue
  playMovie
end

on nextMovie
  global gMovieLabel, gCurLabelProp
  --puppetTransition 50,1,120,false
  stopMovies
  put char 1 to 2 of gMovieLabel into thisMovie

  put char 3 of gMovieLabel into thisSize

  if thisSize = "s" then set thisSize = "S"

  if thisMovie = "SP" then  put "co" into newMovie
  else  if thisMovie = "co" then put "CR" into newMovie
  else  if thisMovie = "CR" then put "FO" into newMovie
  else  if thisMovie = "FO" then put "SP" into newMovie

  set gMovieLabel = newMovie&thisSize

  if gMovieLabel = "cos" then set gMovieLabel = "cos"
  if gMovieLabel = "COL" then set gMovieLabel = "COL"

  addToRetrace
  set the visible of sprite 9 = 0
  set the visible of sprite 10 = 0
  set gCurLabelProp = gMovieLabel
  go frame gMovieLabel
  patchPal
  updateStage
end nextMovie

on prevMovie
  global gMovieLabel, gCurLabelProp
  --puppetTransition 50,1,120,false
  stopMovies
  put char 1 to 2 of gMovieLabel into thisMovie
  put char 3 of gMovieLabel into thisSize

  if thisSize = "s" then set thisSize = "S"

  if thisMovie = "co" then  put "SP" into newMovie
  else  if thisMovie = "SP" then put "FO" into newMovie
  else  if thisMovie = "FO" then put "CR" into newMovie
  else  if thisMovie = "CR" then put "co" into newMovie


  set gMovieLabel = newMovie&thisSize

  if gMovieLabel = "cos" then set gMovieLabel = "cos"
  if gMovieLabel = "COL" then set gMovieLabel = "COL"

  addToRetrace
  set the visible of sprite 9 = 0
  set the visible of sprite 10 = 0
  set gCurLabelProp = gMovieLabel
  go frame gMovieLabel
  patchPal
  updateStage
end prevMovie

on playMovie
  global gMovieLabel,gMovieIsPlaying, gVolume
  global gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP

  global gHelpOffScreen, gHelpPalette

  if not voidP(gHelpOffScreen) and not gHelpOffScreen then
    returnFromHelp
    repeat while the mouseDown
    end repeat

    exit
  end if

  cursor 4

  put "M"&(char 1 to 2 of gMovieLabel)&".MOV" into preloadName
  set cn = the number of cast preloadName

  set movieTime = 0
  do "set movieTime = gMovieTime"&char 1 to 2 of gMovieLabel

  set oldLabel = the frame
  set newLabel = label(gMovieLabel)+1

  if oldLabel <> newLabel then
    set the controller of cast cn = false
    set the visible of sprite 14 = 0
    set the visible of sprite 15 = 0
  end if

  go frame newLabel

  if gMovieIsPlaying then
    pauseMovie
  else
    set the visible of sprite 9 to false
    set the visible of sprite 10 to false
    set the visible of sprite 13 = false
    --puppetSprite 12, true

    if not voidP(movieTime) then
      set the movieTime of sprite 12 = movieTime
      do "set gMovieTime"&char 1 to 2 of gMovieLabel & " = void"
    end if



    set the volume of sprite 12 to gVolume
    set the stopTime of sprite 12 to (the duration of cast preloadName)
    updateStage
    set the movieRate of sprite 12 to 1
    put true into gMovieIsPlaying
    updateStage
  end if

  cursor -1

end playMovie

on pauseMovie noButtons, keepRandom
  global gMovieLabel, gMovieIsPlaying, gRandomMovies
  global gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP

  if voidP(keepRandom) then set keepRandom = 0

  if the type of sprite 12 = 16 then
    if the movieTime of sprite 12 >= the stopTime of sprite 12 then set noButtons = 1
  end if


  if gMovieIsPlaying then
    --puppetSprite 12,true

    if the type of sprite 12 = 16 then
      repeat while the volume of sprite 12 > 0
        set the volume of sprite 12 to (the volume of sprite 12)/2
        updateStage
        delay 8
      end repeat
      set the movieRate of sprite 12 to 0
      set curTime = the movieTime of sprite 12
      do "set gMovieTime" & char 1 to 2 of gMovieLabel & "= curTime"
      set s = lookUpTime(curTime)
      set the visible of sprite 9 = s <> "" and not noButtons
      set the visible of sprite 10 to not noButtons
    end if

    put false into gMovieIsPlaying
    if not keepRandom then set gRandomMovies = 0
  end if
end pauseMovie

on stopMovies
  global gMovieLabel, gMovieIsPlaying
  global gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP

  if the type of sprite 12 = 16 then
    do "set gMovieTime" & char 1 to 2 of gMovieLabel & "= the movietime of sprite 12"
  end if

  --  if gMovieIsPlaying then
  if marker(0) <> the frame then
    setController 0
    set the visible of sprite 9 to false
    set the visible of sprite 10 to false
    repeat with i = 1 to 8
      set the volume of sprite 12 to (the volume of sprite 12)-32
      delay 8
    end repeat
    --set the directToStage of cast(the castNum of sprite 12) to false
    set the controller of cast (the castNum of sprite 12) to false
    set the movieRate of sprite 12 to 0
    set the movieTime of sprite 12 to 0

    --puppetSprite 12, false
    put "M"&(char 1 to 2 of gMovieLabel)&".MOV" into preloadName
    repeat while true
      unloadcast preloadName
      if not(the loaded of cast preloadName) then exit repeat
    end repeat
    put false into gMovieIsPlaying
    go to (the frame)-1
  end if
end stopMovies

on goMovieGo
  global gMovieIsPlaying, gRandomMovies, gRanMovieIndex, gMovieLabel, gMovieList
  global gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP

  --put ">>>goMovieGo"

  if the castNum of sprite 12 > 0 and the type of sprite 12 = 16 then
    if the castType of cast the castnum of sprite 12 <> #digitalVideo then exit
    if the movieRate of sprite 12 = 0 then

      if gMovieIsPlaying then
        if the movieTime of sprite 12 >= the stopTime of sprite 12 then
          setController 0
          go to the frame - 1
        end if

        pauseMovie(1,1)
      end if
    else if not gMovieIsPlaying then
      playMovie
    end if
  else if gRandomMovies then
    if gRanMovieIndex = 4 then
      set gRanMovieIndex = 1
    else
      set gRanMovieIndex = gRanMovieIndex + 1
    end if

    if char 3 of gMovieLabel <> "L" then
      set gMovieLabel = getAt(gMovieList, gRanMovieIndex)
    else
      set gMovieLabel = char 1 to 2 of getAt(gMovieList, gRanMovieIndex) & "L"
      if gMovieLabel = "COL" then set gMovieLabel = "COL"
    end if

    set gCurLabelProp = gMovieLabel

    do "set gMovieTime"&char 1 to 2 of gMovieLabel & " = 0"

    --puppetSprite 12, 0

    go frame (label(gMovieLabel)-1)

    puppetTransition 50,1,120,false
    go next
    patchpal

    playMovie
  end if

end goMovieGo